function fig_R1_grid(R1_grid, CF, C1N, C2N, alphaF_R1, D0i_grid, s, optfig)

if optfig.plotfig == 1
    
    [fontname,dimension,lw,folder,color,style,~,~,fontsize_tit,~,fontsize_lab,fontsize_leg] = fn_optfig(optfig);
    
    f1 = figure('Units','inches','Position',dimension);
    
    subplot(2,1,1)
    for i=1:length(D0i_grid)
        plot(R1_grid,CF(:,i)/CF(1,i),'Color',color{i},'LineStyle',style{i},'LineWidth',lw); hold on;
    end
    ylabel('$C^F_{ti}(s)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    xlabel('Deposit Rate $(R_1)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    title('Consumption After Failure (Normalized)','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname);
    grid; axis tight; box off;
    legendCell = cellstr(strcat('$s=$',num2str(s,'%6.2f\n')));
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend('boxoff')
    
    subplot(2,1,2)
    plot(R1_grid,alphaF_R1,'Color',color{1},'LineWidth',lw);
    ylabel('$\alpha_F(s)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    xlabel('Deposit Rate $(R_1)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    title('Recovery Rate After Failure','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname);
    grid; axis tight; box off;
    legendCell = cellstr(strcat('$s=$',num2str(s,'%6.2f\n')));
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','best')
    legend('boxoff')
    
    f2 = figure('Units','inches','Position',dimension);
    
    subplot(2,1,1)
    for i=1:length(D0i_grid)
        plot(R1_grid,C1N(:,i)/C1N(1,i),'Color',color{i},'LineStyle',style{i},'LineWidth',lw); hold on;
    end
    ylabel('$C^N_{1i}(s)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    xlabel('Deposit Rate $(R_1)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    title('Consumption Early Depositors/No Failure (Normalized)','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname);
    grid; axis tight; box off;
    
    legendCell = cellstr(strcat('$D_{0i}=$',num2str(D0i_grid,'%6.2f\n')));
    legend(legendCell,'interpreter','latex','FontSize',fontsize_leg,'FontName',fontname,'Location','northwest')
    legend('boxoff')
    
    subplot(2,1,2)
    for i=1:length(D0i_grid)
        plot(R1_grid,C2N(:,i)/C2N(1,i),'Color',color{i},'LineStyle',style{i},'LineWidth',lw); hold on;
    end
    ylabel('$C^N_{2i}(s)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    xlabel('Deposit Rate $(R_1)$','interpreter','latex','FontSize',fontsize_lab,'FontName',fontname);
    title('Consumption Late Depositors/No Failure (Normalized)','interpreter','latex','FontSize',fontsize_tit,'FontName',fontname);
    grid; axis tight; box off;
    
    name = 'R1_grid_F';
    print(f1,'-depsc','-painters','-noui','-r600',[folder,name,'.eps'])
    name = 'R1_grid_N';
    print(f2,'-depsc','-painters','-noui','-r600',[folder,name,'.eps'])
    
    if optfig.close == 1; close(who('f')); end
    
end
